<html>
  <body>
    <?php
    include ('./conexion_bases_datos/conexion.php');
    include ('./funciones_tutorias/funciones_fotos.php');
    include ('./funciones_tutorias/funciones_fondo.php');
    include ('./funciones_tutorias/datos_generales.php');

    $pelicula_flash = "F"; ### VARIABLE QUE MANDE PARA QUE SE PINTE LA PELICULA DE FLASH SOLO EN EL INDICE
    fondo($alm_numero_cuenta, $carrera, $rfc, $pelicula_flash, $prf_nombre);

### JALAMOS LOS DATOS DE LA FUNCION QUE ME TRAE LOS DATOS REPETIDOS QUE SE OCUPAN EN TODOS LOS PROGRAMAS ###

    $datos_alm = datos($conexion, $alm_numero_cuenta);

    $n_cta = $alm_numero_cuenta;
#print "$n_cta";
    $GLOBALS[0] = $conexion;
    if ($condos == "si") {
      pon_historial($n_cta, $carrera_clave, $plan, $carrera_nombre);
    } else {
      $selectg = "select alumno.alm_numero_cuenta,alumno.alm_nombre,
              alumno.alm_ap_pat,alumno.alm_ap_mat,alumno_carrera.crr_clave,
              alumno_carrera.pest_clave,alumno_carrera.egr_clave,
              alumno_carrera.acrr_anio_ingreso,carrera.crr_nombre
              from alumno, alumno_carrera, carrera
              where alumno.alm_numero_cuenta=$n_cta
              and alumno.alm_numero_cuenta=alumno_carrera.alm_numero_cuenta
              and alumno_carrera.crr_clave=carrera.crr_clave";
###SI SE QUIERE INCLUIR FECHA DE NACIMIENTO INCLUIR ESTA LINEA EN EL SELECT
# and alumno.alm_fecha_nacimiento=(to_date('$fecha','dd mm yyyy'))
      //print "sss $selectg<br>";
      $queryg = pg_exec($GLOBALS[0], $selectg);
      $fila = pg_numrows($queryg);

      switch ($fila) {
        case 1:
          $carrera_nombre = pg_result($queryg, 0, "crr_nombre");
          $n_cta = pg_result($queryg, 0, "alm_numero_cuenta");
          $carrera_clave = pg_result($queryg, 0, "crr_clave");
          $plan = pg_result($queryg, 0, "pest_clave");
          $anio_ing = pg_result($queryg, 0, "acrr_anio_ingreso");
          $nom = pg_result($queryg, 0, "alm_nombre");
          $pat = pg_result($queryg, 0, "alm_ap_pat");
          $mat = pg_result($queryg, 0, "alm_ap_mat");
          $nombre_alumno = "$nom $pat $mat";

          //print "aa $acu ttt $tot<br>";
          pon_historial($n_cta, $carrera_clave, $plan, $carrera_nombre);
          break;

        case 2:
          Print "<center>
                       <h1>Selecciona la carrera que quieres consultar</h1>
                     <br>";
          $num = 1;
          for ($conteo = 0; $conteo < $fila; $conteo++) {
            $n_cta = pg_result($queryg, $conteo, "alm_numero_cuenta");
            $carrera_nombre = pg_result($queryg, $conteo, "crr_nombre");
            $carrera_clave = pg_result($queryg, $conteo, "crr_clave");
            $plan = pg_result($queryg, $conteo, "pest_clave");
            $egreso = pg_result($queryg, $conteo, "egr_clave");
            //$egresodes=pg_result($queryg,$conteo,"egr_descripcion");

            if ($egreso) {
              $selectegr = "select egr_descripcion from egreso where egr_clave=$egreso";
              $queryegr = pg_exec($GLOBALS[0], $selectegr);
              $egresodes = pg_result($queryegr, 0, "egr_descripcion");
              //print "eeee $egresodes<br>";
            } //if egreso

            print "<center><form name=\"inserta$num\" method=\"POST\">";

            if (!$egreso) {
              print "$carrera_nombre <br>";
              print "<input type='hidden' name='n_cta' value='$n_cta'>";
              print "<input type='hidden' name='plan' value='$plan'>";
              print "<input type='hidden' name='carrera_clave' value='$carrera_clave'>";
              print "<input type='hidden' name='carrera_nombre' value='$carrera_nombre'>";
              print "<input type='hidden' name='condos' value='si'>";
              print "<input type=\"button\" name=\"Insertar\" value=\"Consultar\" Onclick=\"JavaScript:inserta$num.action='./historial.php';inserta$num.submit();\">";
            } else {  //if egreso
              print "<font color='red'>$carrera_nombre</font><br>
                          No se puede consultar.<bR> $egresodes<br>";
            }
            print "</form></center></center>";
            $num++;
          } //cierra for conteo

          break;

        case 0:
          print "<br><br><br><br><center><h1>
                       No hay registros escolares</h1></center><br>";
          break;
      }
    }

    pg_close($GLOBALS[0]);
    print "</body> </html>";

################################################
#    FUNCION PARA TRAER LOS DATOS
################################################

    function ciclos($pest_clave) {
      //global $ciclos, $nom_asg;
      global $ciclos, $nom_asg, $ciclos_optativas, $nom_asg_optativas, $optativas, $num_optativas;
      $select = "select * from asignaturas_por_ciclo where pest_clave=$pest_clave";
      //print "<!-- $select -->";
      $query = pg_exec($GLOBALS[0], $select);
      $num = pg_numrows($query);
      if ($num > 0) {
        $ciclos[0][0] = $num; //guarda los 9 renglones que se trajo del select anterior
        for ($i = 0; $i < $num; $i++) {
          $asg = pg_fetch_row($query, $i);
          $ciclos[0][$asg[1]] = $asg[2];  #PONEMOS EL NUM DE MATERIAS POR CICLO
          //$select1="select asg.asg_id,asg.asg_clave,asg.asg_nombre,asg_creditos from asignatura asg join asignatura_plan using(asg_id) where asignatura_plan.pest_clave=$pest_clave and asg_semestre_anio=$asg[1]";
          $select1 = "select asg.asg_id,asg.asg_clave,asg.asg_nombre,asg_creditos from asignatura asg join asignatura_plan using(asg_id) where asignatura_plan.pest_clave=$pest_clave and asg_semestre_anio=$asg[1] and asg_clave not in (1713,1715,1716,1714,1813,1817,1819,1815,1814,1818,1820,1816)"; //print "<br>";
          #print "$select1<br>";
          $query1 = pg_exec($GLOBALS[0], $select1);
          $num1 = pg_numrows($query1);
          if ($num1 > 0) {
            for ($k = 0; $k < $num1; $k++) {
              $nasg = pg_fetch_row($query1, $k);
              $ciclos[$asg[1]][$k] = $nasg[0];
              $nom_asg[$nasg[0]] = "$nasg[2]:::$nasg[3]:::$nasg[1]";
            }
          }
        }

        if (($pest_clave == 1247) || ($pest_clave == 1248) || ($pest_clave == 1249) || ($pest_clave == 1250) || ($pest_clave == 1251)) {

          #$select_optativas="select asg.asg_id,asg.asg_clave,asg.asg_nombre,asg_creditos from asignatura asg join asignatura_plan using(asg_id) where asignatura_plan.pest_clave=$pest_clave and asg_semestre_anio=0";  // este select es para traer todas las asignaturas que son optativas para cierto plan de estudios 
          $select_optativas = "select asg.asg_id,asg.asg_clave,asg.asg_nombre,asg_creditos from asignatura asg join asignatura_plan using(asg_id) where asignatura_plan.pest_clave=$pest_clave and asg_semestre_anio in (0,7,8) and ((asg_clave in (1713,1715,1716,1714,1813,1817,1819,1815,1814,1818,1820,1816)) OR (asg_clave like '10%'))";
          $ciclos_optativas = array();
          $query_optativas = pg_exec($GLOBALS[0], $select_optativas);
          $num_optativas = pg_numrows($query_optativas);
          if ($num_optativas > 0) {
            for ($u = 0; $u < $num_optativas; $u++) {
              $optativas = pg_fetch_row($query_optativas, $u);
              $ciclos_optativas[$u] = $optativas[0];
              $nom_asg[$optativas[0]] = "$optativas[2]:::$optativas[3]:::$optativas[1]";
            }
          }
          //$ciclos = array_merge($ciclos,$ciclos_optativas); 

          $ciclos[$asg[1]] = $ciclos_optativas;
        }
        /*
          print "<pre>";
          print_r($ciclos);
          print "</pre>";
         */
      }
    }

# FIN DE FUNCION

    function promedios($ncuenta, $pest_clave, $TIPO_PLAN) {
      //global $ciclos,$arr_claves,$nom_asg,$folios,$tabla_armada;
      global $ciclos, $arr_claves, $nom_asg, $folios, $tabla_armada, $ciclos_optativas, $nom_asg_optativas, $optativas, $num_optativas;
      ciclos($pest_clave);   ####SE LLAMA A CICLOS PARA SABER LAS MATERIAS QUE
      #####DEBIO CURSAR

      /* echo "<pre>";
        print_r($ciclos);
        echo "</pre>"; */
      $calificaciones[0][0] = 0;
      #########SE SACAN LAS CALIFICACIONES DE HISTORIAL
      $select = "select distinct(hi.act_folio), hi.hst_calificacion, hi.asg_id,ac.prd_id, 
  ac.act_tipo_examen from historial hi join acta ac using(act_folio,asg_id,pest_clave)
   where alm_numero_cuenta=$ncuenta and ac.pest_clave=$pest_clave order by hi.asg_id, ac.prd_id";
      #echo"$select";
      $query = pg_exec($GLOBALS[0], $select);
      $num = pg_numrows($query);
      $cuenta_folio = 0;
      if ($num > 0) {
        for ($i = 0; $i < $num; $i++) {
          $dat = pg_fetch_row($query, $i);
          if (array_key_exists($dat[2], $calificaciones)) {
#echo"A<br>";	
            $v_indice = count($calificaciones[$dat[2]]);
            $calificaciones[$dat[2]][$v_indice] = "$dat[2]:::$dat[3]:::$dat[1]:::$dat[4]";
          } else {
#echo"B$dat[0]<br>";	
            $calificaciones[$dat[2]][0] = "$dat[2]:::$dat[3]:::$dat[1]:::$dat[4]";
          }
          $folios[$cuenta_folio] = $dat[0];
          $cuenta_folio++;
        }
      }#fin de if num
      #########SE SACAN LAS CALIFICACIONES DE ACTAS
      $select1 = "select distinct(hi.act_folio), hi.aalm_calificacion, hi.asg_id, ac.prd_id, 
  ac.act_tipo_examen from acta_alumno hi join acta ac using(act_folio)
   where alm_numero_cuenta=$ncuenta and ac.pest_clave=$pest_clave order by hi.asg_id, ac.prd_id";
      #$select1 ="select asg_id,aalm_calificacion, act_folio from acta_alumno where alm_numero_cuenta=$ncuenta and pest_clave=$pest_clave";
      $query1 = pg_exec($GLOBALS[0], $select1);
      $num1 = pg_numrows($query1);
      #echo"$select1 $num1";
      if ($num1 > 0) {
        for ($j = 0; $j < $num1; $j++) {
          $act = pg_fetch_row($query1, $j);
          if ($act[1] != 'XX') {
            if (array_key_exists($act[2], $calificaciones)) {
              #echo"A<br>";	
              $v_indice = count($calificaciones[$act[2]]);
              $calificaciones[$act[2]][$v_indice] = "$act[2]:::$act[3]:::$act[1]:::$act[4]";
            } else {
              #echo"B$act[0]<br>";	
              $calificaciones[$act[2]][0] = "$act[2]:::$act[3]:::$act[1]:::$act[4]";
            }
            $folios[$cuenta_folio] = $act[0];
            $cuenta_folio++;
          }
        }
      }#fin de if num1
      if ($num == 0 && $num1 == 0) {
        echo"<center><font size = 4 color = '#CC3399' face = 'arial'>EL N&Uacute;MERO DE CUENTA $ncuenta NO TIENE REGISTROS</font></center>";
        exit();
      }
      ####################SE ORDENA $calificaciones
//print"<pre>"; print_r($calificaciones); print"</pre>";
      Ksort($calificaciones);
      reset($calificaciones);
      #Ksort($calif_todas);
      #reset($calif_todas);
      sort($folios);
      reset($folios);
      ###################SE SACA PROMEDIO#####################################
      #print_r($nom_asg);
      $num_ciclos = $ciclos[0][0];
      $conversion = array("RE" => "06", "AC" => "06", "CO" => "06", "NP" => "05", "NA" => "05", "S" => "06", "B" => "08", "MB" => "10", "05" => "05", "06" => "06", "09" => "09", "07" => "07", "08" => "08", "10" => "10", "5" => "05", "6" => "06", "7" => "07", "8" => "08", "9" => "09");
#$conversion=array("NA"=>"05","S"=>"06","B"=>"08","MB"=>"10","05"=>"05","06"=>"06","09"=>"09","07"=>"07","08"=>"08","10"=>"10","5"=>"05","6"=>"06","7"=>"07","8"=>"08","9"=>"09");
//$semestres=array(1=>"PRIMER",2=>"SEGUNDO",3=>"TERCER",4=>"CUARTO",5=>"QUINTO",6=>"SEXTO",7=>"SEPTIMO",8=>"OCTAVO",9=>"NOVENO");
      /*
        if ($pest_clave==340)
        {
        $semestres=array(1=>"PRIMER",2=>"SEGUNDO",3=>"TERCER",4=>"CUARTO",5=>"QUINTO",6=>"SEXTO",7=>"SEPTIMO",8=>"OCTAVO",9=>"NOVENO");
        }
       */
      if ($pest_clave == 1247) {
        $semestres = array(1 => "PRIMER", 2 => "SEGUNDO", 3 => "TERCER", 4 => "CUARTO", 5 => "QUINTO", 6 => "SEXTO", 7 => "OPTATIVAS");
      } elseif ($pest_clave == 1248) {
        $semestres = array(1 => "PRIMER", 2 => "SEGUNDO", 3 => "TERCER", 4 => "CUARTO", 5 => "QUINTO", 6 => "SEXTO", 7 => "SEPTIMO", 8 => "OCTAVO", 9 => "OPTATIVAS");
      } elseif ($pest_clave == 1249) {
        $semestres = array(1 => "PRIMER", 2 => "SEGUNDO", 3 => "TERCER", 4 => "CUARTO", 5 => "QUINTO", 6 => "SEXTO", 7 => "SEPTIMO", 8 => "OCTAVO", 9 => "OPTATIVAS");
      } elseif ($pest_clave == 1250) {
        $semestres = array(1 => "PRIMER", 2 => "SEGUNDO", 3 => "TERCER", 4 => "CUARTO", 5 => "QUINTO", 6 => "SEXTO", 7 => "SEPTIMO", 8 => "OCTAVO", 9 => "OPTATIVAS");
      } elseif ($pest_clave == 1251) {
        $semestres = array(1 => "PRIMER", 2 => "SEGUNDO", 3 => "TERCER", 4 => "CUARTO", 5 => "QUINTO", 6 => "SEXTO", 7 => "SEPTIMO", 8 => "OCTAVO", 9 => "OPTATIVAS");
      } else {
        $semestres = array(1 => "PRIMER", 2 => "SEGUNDO", 3 => "TERCER", 4 => "CUARTO", 5 => "QUINTO", 6 => "SEXTO", 7 => "SEPTIMO", 8 => "OCTAVO", 9 => "NOVENO");
      }

      if ($TIPO_PLAN == 'A') {
        $sem_an = "A&Ntilde;O";
      }
      if ($TIPO_PLAN == 'S') {
        $sem_an = "SEMESTRE";
      }
      /*
        $promedio=0;
        $aprobadas=0;
        $reprobadas=0;
        $num_materias=0;#cuenta las materias validas para promediar (que no sean NP)
        $p_creditos=0;
        $tabla_armada="";
        $total=0;   #####aqui se van sumando las calif. del alumno
       */
      $promedio = 0;
      $aprobadas = 0;
      $aprobadas1 = 0;
      $reprobadas = 0;
      $num_materias = 0; #Cuenta las materias validas para promediar (que no sean NP)
      $num_materias1 = 0;
      $p_creditos = 0;
      $p_creditos1 = 0;
      $tabla_armada = "";
      $total = 0;  #####aqui se van sumando las calif. del alumno 
      $total1 = 0;
      for ($i = 1; $i <= $num_ciclos; $i++) {
        $ciclo = $ciclos[0][$i]; ##el numero de ciclo  que se va a promediar
        $band_sem = 0; ##ESTA ES LA BANDERA PARA PONER LA BARRA DE SEMESTRE
        for ($j = 0; $j < $ciclo; $j++) {
          $asg = $ciclos[$i][$j];
          if (array_key_exists($asg, $calificaciones)) {#######( A )
            if ($band_sem == 0) {
              /*
                ##SE PREGUNTA PARA PONER LA BARRA DEL SEMESTRE
                $tabla_armada=$tabla_armada ."<tr><td colspan='6' align='center'><font size=2 color='#CC3399'><b>$semestres[$i] $sem_an</b></font></td></tr>\n";
                $band_sem=1;
               */
              /*
                if ($pest_clave==340) //Solo debe pintar los semestres que son para ese plan sin meter nada de optativas
                {
                $tabla_armada=$tabla_armada ."<tr><td colspan='6' align='center'><font size=2 color='#CC3399'><b>$semestres[$i] $sem_an</b></font></td></tr>\n";
                $band_sem=1;
                }
               */
              if ($pest_clave == 1247) {
                if ($i != 7) {
                  $tabla_armada = $tabla_armada . "<tr><td colspan='6' align='center'><font size=2 color='#CC3399'><b>$semestres[$i] $sem_an</b></font></td></tr>\n";
                  $band_sem = 1;
                } else {
                  $tabla_armada = $tabla_armada . "<tr><td colspan='6' align='center'><font size=2 color='#CC3399'><b>$semestres[$i]</b></font></td></tr>\n";
                  $band_sem = 1;
                }
              } elseif ($pest_clave == 1248) {
                if ($i != 9) {
                  $tabla_armada = $tabla_armada . "<tr><td colspan='6' align='center'><font size=2 color='#CC3399'><b>$semestres[$i] $sem_an</b></font></td></tr>\n";
                  $band_sem = 1;
                } else {
                  $tabla_armada = $tabla_armada . "<tr><td colspan='6' align='center'><font size=2 color='#CC3399'><b>$semestres[$i]</b></font></td></tr>\n";
                  $band_sem = 1;
                }
              } elseif ($pest_clave == 1249) {
                if ($i != 9) {
                  $tabla_armada = $tabla_armada . "<tr><td colspan='6' align='center'><font size=2 color='#CC3399'><b>$semestres[$i] $sem_an</b></font></td></tr>\n";
                  $band_sem = 1;
                } else {
                  $tabla_armada = $tabla_armada . "<tr><td colspan='6' align='center'><font size=2 color='#CC3399'><b>$semestres[$i]</b></font></td></tr>\n";
                  $band_sem = 1;
                }
              } elseif ($pest_clave == 1250) {
                if ($i != 9) {
                  $tabla_armada = $tabla_armada . "<tr><td colspan='6' align='center'><font size=2 color='#CC3399'><b>$semestres[$i] $sem_an</b></font></td></tr>\n";
                  $band_sem = 1;
                } else {
                  $tabla_armada = $tabla_armada . "<tr><td colspan='6' align='center'><font size=2 color='#CC3399'><b>$semestres[$i]</b></font></td></tr>\n";
                  $band_sem = 1;
                }
              } elseif ($pest_clave == 1251) {
                if ($i != 9) {
                  $tabla_armada = $tabla_armada . "<tr><td colspan='6' align='center'><font size=2 color='#CC3399'><b>$semestres[$i] $sem_an</b></font></td></tr>\n";
                  $band_sem = 1;
                } else {
                  $tabla_armada = $tabla_armada . "<tr><td colspan='6' align='center'><font size=2 color='#CC3399'><b>$semestres[$i]</b></font></td></tr>\n";
                  $band_sem = 1;
                }
              } else {
                $tabla_armada = $tabla_armada . "<tr><td colspan='6' align='center'><font size=2 color='#CC3399'><b>$semestres[$i] $sem_an</b></font></td></tr>\n";
                $band_sem = 1;
                /*
                  if ($i!=9)
                  {
                  $tabla_armada=$tabla_armada ."<tr><td colspan='6' align='center'><font size=2 color='#CC3399'><b>$semestres[$i] $sem_an</b></font></td></tr>\n";
                  $band_sem=1;
                  }
                  else
                  {
                  $tabla_armada=$tabla_armada ."<tr><td colspan='6' align='center'><font size=2 color='#CC3399'><b>$semestres[$i]</b></font></td></tr>\n";
                  $band_sem=1;

                  }
                 */
              }
            }

            $cuantos = count($calificaciones[$asg]); ##REVISAMOS EL NUM DE INTENTOS
            #####PONEMOS UN FOR QUE PINTE TODOS LOS INTENTOS Y TOMAMOS EL ULTIMO PARA CALCULOS
            $t_res = 0;
            $cal_res = 0;
            for ($m = 0; $m < $cuantos; $m++) {
              #if($m==($cuantos-1)){$fondo="#d9d9d9";}else{$fondo="#eaeaea"; }
              if ($m == ($cuantos - 1)) {
                $fondo = "#ffffff";
              } else {
                $fondo = "#ffffff";
              }
              list($ASIG, $PRD_ID, $CALIF, $T_EX) = split(":::", $calificaciones[$asg][$m]);
              $PRD_ID = substr($PRD_ID, 0, 5);
              list($nombre, $creditos, $clave) = split(":::", $nom_asg[$asg]);
              $tabla_armada = $tabla_armada . " <tr bgcolor='$fondo' align='center'>
            <td align='center'><font size=2 color='#747474' face='times new roman'>$clave</td><td align='left'></font>\n
	    <font size=1 color='#747474' face='times new roman'>$nombre</td> <td><font size=2 color='#747474' face='times new roman'>$creditos</font></td>\n
            <td><font size=2><font size=2 color='#747474' face='times new roman'>$CALIF</font></td> <td><font size=2 color='#747474' face='times new roman'>$PRD_ID</font>
            </td> <td><font size=2 color='#747474' face='times new roman'>$T_EX</td></font> </tr>\n";


              $CALIF = trim($CALIF); #QUITAMOS ESPACIOS PARA EVITAR ERRORES
              if (array_key_exists($CALIF, $conversion)) { # ( B )
                $CAL = $conversion[$CALIF];
                if ($CALIF == "NP") {#SI ES NP NO SE CUENTA EN EL PROMEDIO
                  if ($t_res > 1) {
                    
                  } else {
                    $t_res = 0;
                    $cal_res = $CAL;
                  }
                }
                if ($CALIF == "NA") {#SI ES NP NO SE CUENTA EN EL PROMEDIO
                  if ($t_res > 1) {
                    
                  } else {
                    $t_res = 1;
                    $cal_res = $CAL;
                  }
                }
                if ($CALIF == 5) {
                  if ($t_res > 2) {
                    
                  } else {
                    $t_res = 2;
                    $cal_res = $CAL;
                  }
                }
                if ($CAL > 5) {
                  $t_res = 3;
                  $cal_res = $CAL;
                }
                if ($CALIF == "CO" || $CALIF == "AC" || $CALIF == "RE") {
                  $t_res = 4;
                }
              }#fin de if if arra_key exists ( B )
            }#fin de for $m
###CON LOS DATOS OBTENIDOS CALCULAMOS EL PROMEDIO, EL NUM DE APROBADAS, EL NUM.
### DE REPROBADAS Y LOS CREDITOS
############################################%%%%%%%%%%##################
            /*

              if($t_res>1){#Si la Ult. Calificacion no es NP
              if($t_res==4){
              $aprobadas++;
              $p_creditos=$p_creditos+$creditos;
              }
              else{
              $total=$total+$cal_res;
              $num_materias++;#SON LAS MATERIAS VALIDAS PARA PROMEDIAR
              if($cal_res>5){$aprobadas++;$p_creditos=$p_creditos+$creditos;}

              else{$reprobadas++;}
              }
              }
              else{$reprobadas++;}
             */
            if ($t_res > 1) {#Si la Ult. Calificacion no es NP
              if ($t_res == 4) {
                $aprobadas++;
                $p_creditos = $p_creditos + $creditos;

                for ($r = 0; $r < $num_optativas; $r++) { //se busca si existe alguna optativa para poder entonces mandarla en variable
                  if ($ciclos_optativas[$r] == $ASIG) {
                    $aprobadas1++;
                    $p_creditos1 = $p_creditos1 + $creditos;
                  }
                }
              } else {
                $total = $total + $cal_res;
                $num_materias++; #SON LAS MATERIAS VALIDAS PARA PROMEDIAR

                for ($s = 0; $s < $num_optativas; $s++) { //se busca si existe alguna optativa para poder entonces mandarla en variable
                  if ($ciclos_optativas[$s] == $ASIG) {
                    $total1 = $total1 + $cal_res;
                    $num_materias1++;
                  }
                }
                if ($cal_res > 5) {
                  $aprobadas++;
                  $p_creditos = $p_creditos + $creditos;
                  for ($l = 0; $l < $num_optativas; $l++) { //se busca si existe alguna optativa para poder entonces mandarla en variable
                    if ($ciclos_optativas[$l] == $ASIG) {
                      $aprobadas1++;
                      $p_creditos1 = $p_creditos1 + $creditos;
                    }
                  }
                } else {
                  $reprobadas++;
                }
              }
            } else {
              $reprobadas++; ###ERA UN NP O CO Y SE TOMA COMO REPROBADA
            }

            ###ERA UN NP O CO Y SE TOMA COMO REPROBADA
            #$total=$total+$CAL;
            #if($CAL>5){$aprobadas++;$p_creditos=$p_creditos+$creditos;}
##############################################%%%%%%%%%##############
          }# fin de if ( A )
        }#fin de for ciclo
      }#fin de for num_ciclos
#  echo"Total de cal=$total<br>Aprobadas=$aprobadas<br>Rep=$reprobadas<br>\n";
      if ($total != 0) { #solo tienen NP's
        $promedio = $total / $num_materias;
      } else {
        $promedio = $total;
      }
      //$promedios="$aprobadas ::: $reprobadas ::: $promedio ::: $p_creditos";
      $promedios = "$aprobadas ::: $reprobadas ::: $promedio ::: $p_creditos ::: $aprobadas1 ::: $p_creditos1";
########################################################################
#  $promedios=compara_promedios($calificaciones,$ciclos);  ####SE COMPARAN
      ####### LOS ARREGLOS Y
      #####SE SACA PROMEDIO
      return("$promedios");
    }

    function pon_historial($n_cta, $carrera_clave, $plan, $carrera_nombre) {
      global $ciclos, $nom_asg, $tabla_armada, $nombre_alumno, $anio_ing;
      $select_per = "select * from plan_estudios where pest_clave=$plan";
      $query_per = pg_exec($GLOBALS[0], $select_per);
      $num_per = pg_numrows($query_per);
      if ($num_per > 0) {
        $per = pg_fetch_row($query_per, 0);
        /* $CREDITOS=$per[8]+$per[9]; ####EL NUMERO DE CREDITOS DE LA CARRERA
          $TIPO_PLAN=$per[6]; */
        $CREDITOS = $per[8];
        $CREDITOS_OPTATIVOS = $per[9];
        $TIPO_PLAN = $per[6];
      } else {
        echo"Hubo error en la base de datos";
        exit();
      }
      if (strlen(n_cta) < 9) {
        $CERO = '0';
      } else {
        $CERO = '';
      }
      ciclos($plan);
      $promedios = promedios($n_cta, $plan, $TIPO_PLAN);
      /*
        list($aprobadas,$reprobadas,$promedio,$creditos)=split(":::",$promedios);
        $porcentaje=($creditos*100)/$CREDITOS;
        $promedio= substr ($promedio,0,5);
        $porcentaje= substr ($porcentaje,0,5);
       */
      list($aprobadas, $reprobadas, $promedio, $creditos, $aprobadas1, $creditos1) = split(":::", $promedios);
      /*
        print "<pre>";
        print_r($promedios);
        print "</pre>";
       */
      $creditos = $creditos - $creditos1;
      $creditos_totales = $creditos + $creditos1;
      $CREDITOS_TOTALES = $CREDITOS + $CREDITOS_OPTATIVOS;
      $porcentaje = ($creditos * 100) / $CREDITOS;
      if ($CREDITOS_OPTATIVOS > 0) {
        $porcentaje1 = ($creditos1 * 100) / $CREDITOS_OPTATIVOS;
      }
      $porcentaje_total = ($creditos_totales * 100) / $CREDITOS_TOTALES;
      $promedio = substr($promedio, 0, 5);
      $porcentaje = substr($porcentaje, 0, 5);
      $porcentaje1 = substr($porcentaje1, 0, 5);
      $porcentaje_total = substr($porcentaje_total, 0, 5);
#$promedio= sprintf ("%01.2f", $promedio);
#$porcentaje= sprintf ("%01.2f", $porcentaje);
#$promedio= sprintf ("%01.2f", $promedio);
#$porcentaje= sprintf ("%01.2f", $porcentaje);
#############FOTO######################

      $dir_fotos = array("2000" => "9900", "2001" => "0001", "2002" => "0102", "2003" => "0203", "2004" => "0304", "2005" => "0405");
      $digitos = strlen($n_cta);
#print "$digitos<br>";
      if ($digitos == 8) {
        $n_cta = "0" . $n_cta;
      }
      $ruta = "../fotos/" . $dir_fotos[$anio_ing] . "/" . $carrera_clave . "/" . $n_cta . ".JPG";

      print "<center><font size='4' color='#A9A9A9'>HISTORIA ACAD&Eacute;MICA</font><p><font size=2 color='#CC3399'>(DOCUMENTO NO OFICIAL)</center><br></font>";
#print_r($ciclos);
#print_r($nom_asg);
      print "
<table border='1' align='center' bordercolor='#c0cccc' width='540'>
<tr>
	<td>
		<table align='center' border=0 width='540'>
		<tr>
			<td>
				<br>
				<font size=1 color='#808080' face='times new roman'>N&Uacute;MERO DE CUENTA:</font>
				</font><font size=2 color='#105DD2' face='times new roman'>$n_cta</font>
				<br>
			</td>
			<td>
				<br>
				<font size='1' color='#808080' face='times new roman'>NOMBRE: </font>
				<font size=2 color='#105DD2' face='times new roman'>$nombre_alumno</font>
				<br>
			</td>
			<td>
				<br>
				<font size='1' color='#808080' face='times new roman'>A&Ntilde;O DE INGRESO:</font>
				<font size=2 color='#105DD2' face='times new roman'> $anio_ing</font>
				<br>
			</td>
		</tr>
		<tr>
			<td>
				<br>
				<font size='1' color='#808080' face='times new roman'>CARRERA:</font>
				<font size=2 color='#105DD2' face='times new roman'>$carrera_nombre ($carrera_clave)</font>
				<br>
			</td>
			<!--en esta parte va la foto-->
			<td>
				<br><br>
			</td>
			<td>
				<br>
				<font size='1' color='#808080' face='times new roman'>PLAN DE ESTUDIOS:</font>
				<font size=2 color='#105DD2' face='times new roman'> $plan</font>
				<br>
			</td>
		</tr>
		<tr>
			<td colspan='3' align='center'>
				<br>
			</td>
		</tr>
		</table>
		<table align='center' border=0 width='540'>
        <tr bgcolor='#eaeaea'><hr>
			<td valign='top'>\n
				<center>
				<U>
				<font size='2' color='#CC3399' face='arial'>
				<img src='$ruta' heigth='80' width='80' align='left'>
				Avance de Cr&eacute;ditos
				<br>
				<br>
				</font>
				</U>
				<font size='2' color='#105DD2' face='arial'>Obligatorios: <b>$creditos de $CREDITOS ($porcentaje%)</b>
				</font>
				<br><br>";

//if ($plan!=340)	
      if (($plan == 1247) || ($plan == 1248) || ($plan == 1249) || ($plan == 1250) || ($plan == 1251)) {
        print "<font size='2' color='#105DD2' face='arial'>Optativos: <b>$creditos1 de $CREDITOS_OPTATIVOS ($porcentaje1%)</b>
						<br><br>
						</font>";
      }
      print "<font size='2' color='#105DD2' face='arial'>Totales: <b>$creditos_totales de $CREDITOS_TOTALES ($porcentaje_total%)</b>
						</font>
						</center>
						<br>";

      print "	
			</td>
			<td valign='top'>
				<center>
				<U>
				<font size='2' color='#CC3399' face='arial'>Asignaturas</font>
				</U>
				<font size='2' color='#105DD2' face='arial'><p>Aprobadas: <b>$aprobadas</b><br></font>
				<font size='2' color='#105DD2' face='arial'>Reprobadas: <b>$reprobadas</b><br></font>
				<font size='2' color='#105DD2' face='arial'>Total: <b>" . ($aprobadas + $reprobadas) . "</b></font>
				</center>
				</b>
			</td>
			<td valign='top'>
				<center>
				<u>
				<font size='2' color='#CC3399' face='arial'>Promedio
				</u>
				<p>
				</font>
				<font size='2' color='#105DD2' face='arial'> <b>$promedio</b>
				</font>
				</center>
			</td>
		</tr>
		</table>
	</td>
</tr>
</table>




	<!--tabla en la que se cambia el tamano de la tabla grande-->
<table align='center' border=1 width='550' bordercolor='#c0cccc'>
<tr align='center'>
	<td bgcolor='#000000'>
		<font color='#ffffff' size='1' face='times new roman'><b>CLAVE</b></font>
	</td>
	<td bgcolor='#000000'>
		<font color='#ffffff' size='1' face='times new roman'><b>ASIGNATURA</b></font>
	</td>
	<td bgcolor='#000000'>
		<font color='#ffffff' size='1' face='times new roman'><b>CR&Eacute;DITOS</b></font>
	</td>
	<!-- <td><font color='CC3399'>SEMESTRE</font></td> -->
	<td bgcolor='#000000'>
		<font color='#ffffff' size='1' face='times new roman'><b>CALIFICACI&Oacute;N</b></font>
	</td>
	<td bgcolor='#000000'>
		<font color='#ffffff' size='1' face='times new roman'><b>PERIODO</b></font>
	</td>
	<td bgcolor='#000000'>
		<font color='#ffffff' size='1' face='times new roman'><b>TIPO</b></font>
	</td>
</tr>";

      for ($conteo = 0; $conteo < $fila; $conteo++) {

        if ($sem == 1) {
          $semes = 'PRIMER';
        }
        if ($sem == 2) {
          $semes = 'SEGUNDO';
        }
        if ($sem == 3) {
          $semes = 'TERCER';
        }
        if ($sem == 4) {
          $semes = 'CUARTO';
        }
        if ($sem == 5) {
          $semes = 'QUINTO';
        }
        if ($sem == 6) {
          $semes = 'SEXTO';
        }
        if ($sem == 7) {
          $semes = 'SEPTIMO';
        }
        if ($sem == 8) {
          $semes = 'OCTAVO';
        }
        if ($sem == 9) {
          $semes = 'NOVENO';
        }
        if ($sem == 10) {
          $semes = 'DECIMO';
        }
        if ($conteo == 0) {
          $semant = 0;
          if ($sem != $semant) {
            print "
			<tr>
				<td colspan='5' align='center'> $semes SEMESTRE
				</td>
			</tr>";
          }
          $semant = $sem;
        } else {
          if ($sem != $semant) {
            print "
			<tr>
				<td colspan='5' align='center'> $semes SEMESTRE
				</td>
			</tr>";
          }
          $semant = $sem;
        }


        print "
	<tr align='center'>
		<td align='left'>$mat
		</td>
		<td>$cre
		</td>
		<!-- <td>$sem</td> -->
		<td>$cal
		</td>
		<td>$per
		</td>
		<td>$tip
		</td>
	</tr>";
      } //cierra for conteo

      echo"$tabla_armada";
      print "</table>";
    }

#cierra funcion
    ?>